home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Phone & Address Stuff / Memory Phone / background_2771.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  14.8 KB  |  737 lines
  1. -- background: 2771 from stack: in
  2. -- bmap block id: 2258
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Memdialer
  6. ----- HyperTalk script -----
  7. on mouseup
  8.   global justdoubled
  9.   if Justdoubled is true then exit mouseup
  10.   Put the name of the target into hname
  11.   if hname contains "bkgnd field" then
  12.     Put the id of the target into Numberchosen
  13.     if the shiftkey is down then
  14.       Put "" into bkgnd field id numberchosen
  15.       exit mouseup
  16.     else
  17.       if bkgnd field id numberchosen is empty then
  18.         ask "What is this persons name?"
  19.         if it is empty then exit mouseup
  20.         Put it into line 1 of bkgnd field id numberchosen
  21.         ask "What is this persons number?"
  22.         if it is empty then exit mouseup
  23.         Put it into line 2 of bkgnd field id numberchosen
  24.         exit mouseup
  25.       else
  26.  
  27.         Put line 2 of bkgnd field id numberchosen into thenumber
  28.         Put "Now dialing "&thenumber into msg
  29.         send "dial " & quote & thenumber & quote & " with modem" to hypercard
  30.         hide msg
  31.  
  32.         if hname contains "Redial" then exit mouseup
  33.         repeat with l=1 to 5
  34.           Put "Redial"&l into holder
  35.           if bkgnd field id numberchosen is bkgnd field holder then exit mouseup
  36.         end repeat
  37.  
  38.  
  39.  
  40.         repeat with q=5 down to 2
  41.           Put "Redial"&q-1 into holder
  42.           Put "Redial"&q into gholder
  43.           put bkgnd field holder into bkgnd field gholder
  44.         end repeat
  45.         Put bkgnd field id numberchosen into bkgnd field Redial1
  46.         exit mouseup
  47.       end if
  48.  
  49.  
  50.     end if
  51.   end if
  52.  
  53.   if hname contains "bkgnd button" then
  54.  
  55.     get the short name of the target
  56.     if it is "Unused" then
  57.       ask "Name the new directory."
  58.       if it is "" then exit mouseup
  59.       Put it into newname
  60.       Set the name of the target to newname
  61.       domenu "New Card"
  62.       set the name of this card to newname
  63.       Put newname into bkgnd field cardname
  64.     else
  65.       put it into wheretogo
  66.       go to card wheretogo
  67.       exit mouseup
  68.     end if
  69.   end if
  70. end mouseup
  71.  
  72.  
  73. on idle
  74.   global justdoubled
  75.   Put false into JustDoubled
  76. end idle
  77.  
  78.  
  79. on mousedown
  80.   global justdoubled
  81.   Get the name of the target
  82.   if it contains "bkgnd field" then
  83.     Put the id of the target into Numberchosen
  84.   else
  85.     exit mousedown
  86.   end if
  87.   if the optionkey is down then
  88.     put bkgnd field id numberchosen into thefield
  89.     Put line 2 of thefield into bkgnd field id numberchosen
  90.     repeat while the mouse is down
  91.     end repeat
  92.     Put thefield into bkgnd field id numberchosen
  93.     Put true into Justdoubled
  94.     exit mousedown
  95.   end if
  96. end mousedown
  97.  
  98.  
  99.  
  100. -- part 31 (button)
  101. -- low flags: 00
  102. -- high flags: A002
  103. -- rect: left=458 top=40 right=86 bottom=507
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 1017 / 1017
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Personal
  112.  
  113.  
  114. -- part 32 (field)
  115. -- low flags: 01
  116. -- high flags: 0002
  117. -- rect: left=160 top=313 right=331 bottom=333
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 130
  122. -- text size: 12
  123. -- style flags: 256
  124. -- line height: 16
  125. -- part name: Cardname
  126.  
  127.  
  128. -- part 37 (button)
  129. -- low flags: 00
  130. -- high flags: A002
  131. -- rect: left=458 top=134 right=180 bottom=507
  132. -- title width / last selected line: 0
  133. -- icon id / first selected line: 1017 / 1017
  134. -- text alignment: 1
  135. -- font id: 0
  136. -- text size: 12
  137. -- style flags: 0
  138. -- line height: 16
  139. -- part name: Unused
  140.  
  141.  
  142. -- part 38 (button)
  143. -- low flags: 00
  144. -- high flags: A002
  145. -- rect: left=458 top=181 right=227 bottom=507
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 1017 / 1017
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Unused
  154.  
  155.  
  156. -- part 39 (button)
  157. -- low flags: 00
  158. -- high flags: A002
  159. -- rect: left=458 top=228 right=274 bottom=507
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 1017 / 1017
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Unused
  168.  
  169.  
  170. -- part 40 (button)
  171. -- low flags: 00
  172. -- high flags: A002
  173. -- rect: left=458 top=275 right=321 bottom=507
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 1017 / 1017
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Unused
  182.  
  183.  
  184. -- part 82 (field)
  185. -- low flags: 01
  186. -- high flags: 0002
  187. -- rect: left=296 top=79 right=95 bottom=427
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 2
  192. -- text size: 12
  193. -- style flags: 256
  194. -- line height: 16
  195. -- part name: 
  196. ----- HyperTalk script -----
  197. on mouseup
  198.   pass mouseup
  199. end mouseup
  200.  
  201.  
  202.  
  203. -- part 93 (button)
  204. -- low flags: 00
  205. -- high flags: A002
  206. -- rect: left=159 top=23 right=68 bottom=202
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 3430 / 3430
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Rolodex
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   visual effect zoom open
  218.   go to stack "Address"
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 95 (field)
  224. -- low flags: 01
  225. -- high flags: 0002
  226. -- rect: left=155 top=79 right=95 bottom=286
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 2
  231. -- text size: 12
  232. -- style flags: 256
  233. -- line height: 16
  234. -- part name: 
  235. ----- HyperTalk script -----
  236. on mouseup
  237.   pass mouseup
  238. end mouseup
  239.  
  240.  
  241.  
  242. -- part 97 (field)
  243. -- low flags: 01
  244. -- high flags: 0002
  245. -- rect: left=50 top=136 right=148 bottom=140
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 0
  249. -- font id: 3
  250. -- text size: 9
  251. -- style flags: 0
  252. -- line height: 12
  253. -- part name: Redial5
  254.  
  255.  
  256. -- part 98 (field)
  257. -- low flags: 01
  258. -- high flags: 0002
  259. -- rect: left=50 top=123 right=135 bottom=140
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 0
  263. -- font id: 3
  264. -- text size: 9
  265. -- style flags: 0
  266. -- line height: 12
  267. -- part name: Redial4
  268.  
  269.  
  270. -- part 99 (field)
  271. -- low flags: 01
  272. -- high flags: 0002
  273. -- rect: left=50 top=110 right=122 bottom=140
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 0
  277. -- font id: 3
  278. -- text size: 9
  279. -- style flags: 0
  280. -- line height: 12
  281. -- part name: Redial3
  282.  
  283.  
  284. -- part 100 (field)
  285. -- low flags: 01
  286. -- high flags: 0002
  287. -- rect: left=50 top=97 right=109 bottom=140
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 0
  291. -- font id: 3
  292. -- text size: 9
  293. -- style flags: 0
  294. -- line height: 12
  295. -- part name: Redial2
  296.  
  297.  
  298. -- part 101 (field)
  299. -- low flags: 01
  300. -- high flags: 0002
  301. -- rect: left=50 top=84 right=96 bottom=140
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 0
  305. -- font id: 3
  306. -- text size: 9
  307. -- style flags: 0
  308. -- line height: 12
  309. -- part name: Redial1
  310.  
  311.  
  312. -- part 102 (field)
  313. -- low flags: 01
  314. -- high flags: 0002
  315. -- rect: left=155 top=96 right=112 bottom=286
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 1
  319. -- font id: 2
  320. -- text size: 12
  321. -- style flags: 256
  322. -- line height: 16
  323. -- part name: 
  324. ----- HyperTalk script -----
  325. on mouseup
  326.   pass mouseup
  327. end mouseup
  328.  
  329.  
  330.  
  331. -- part 103 (field)
  332. -- low flags: 01
  333. -- high flags: 0002
  334. -- rect: left=155 top=113 right=129 bottom=286
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 0 / 0
  337. -- text alignment: 1
  338. -- font id: 2
  339. -- text size: 12
  340. -- style flags: 256
  341. -- line height: 16
  342. -- part name: 
  343. ----- HyperTalk script -----
  344. on mouseup
  345.   pass mouseup
  346. end mouseup
  347.  
  348.  
  349.  
  350. -- part 104 (field)
  351. -- low flags: 01
  352. -- high flags: 0002
  353. -- rect: left=155 top=130 right=146 bottom=286
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 2
  358. -- text size: 12
  359. -- style flags: 256
  360. -- line height: 16
  361. -- part name: 
  362. ----- HyperTalk script -----
  363. on mouseup
  364.   pass mouseup
  365. end mouseup
  366.  
  367.  
  368.  
  369. -- part 105 (field)
  370. -- low flags: 01
  371. -- high flags: 0002
  372. -- rect: left=155 top=147 right=163 bottom=286
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 1
  376. -- font id: 2
  377. -- text size: 12
  378. -- style flags: 256
  379. -- line height: 16
  380. -- part name: 
  381. ----- HyperTalk script -----
  382. on mouseup
  383.   pass mouseup
  384. end mouseup
  385.  
  386.  
  387.  
  388. -- part 106 (field)
  389. -- low flags: 01
  390. -- high flags: 0002
  391. -- rect: left=296 top=96 right=112 bottom=427
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 2
  396. -- text size: 12
  397. -- style flags: 256
  398. -- line height: 16
  399. -- part name: 
  400. ----- HyperTalk script -----
  401. on mouseup
  402.   pass mouseup
  403. end mouseup
  404.  
  405.  
  406.  
  407. -- part 107 (field)
  408. -- low flags: 01
  409. -- high flags: 0002
  410. -- rect: left=296 top=113 right=129 bottom=427
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 2
  415. -- text size: 12
  416. -- style flags: 256
  417. -- line height: 16
  418. -- part name: 
  419. ----- HyperTalk script -----
  420. on mouseup
  421.   pass mouseup
  422. end mouseup
  423.  
  424.  
  425.  
  426. -- part 108 (field)
  427. -- low flags: 01
  428. -- high flags: 0002
  429. -- rect: left=296 top=130 right=146 bottom=427
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 1
  433. -- font id: 2
  434. -- text size: 12
  435. -- style flags: 256
  436. -- line height: 16
  437. -- part name: 
  438. ----- HyperTalk script -----
  439. on mouseup
  440.   pass mouseup
  441. end mouseup
  442.  
  443.  
  444.  
  445. -- part 109 (field)
  446. -- low flags: 01
  447. -- high flags: 0002
  448. -- rect: left=296 top=147 right=163 bottom=427
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 2
  453. -- text size: 12
  454. -- style flags: 256
  455. -- line height: 16
  456. -- part name: 
  457. ----- HyperTalk script -----
  458. on mouseup
  459.   pass mouseup
  460. end mouseup
  461.  
  462.  
  463.  
  464. -- part 110 (field)
  465. -- low flags: 01
  466. -- high flags: 0002
  467. -- rect: left=155 top=171 right=187 bottom=286
  468. -- title width / last selected line: 0
  469. -- icon id / first selected line: 0 / 0
  470. -- text alignment: 1
  471. -- font id: 2
  472. -- text size: 12
  473. -- style flags: 256
  474. -- line height: 16
  475. -- part name: 
  476. ----- HyperTalk script -----
  477. on mouseup
  478.   pass mouseup
  479. end mouseup
  480.  
  481.  
  482.  
  483. -- part 111 (field)
  484. -- low flags: 01
  485. -- high flags: 0002
  486. -- rect: left=155 top=188 right=204 bottom=286
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 1
  490. -- font id: 2
  491. -- text size: 12
  492. -- style flags: 256
  493. -- line height: 16
  494. -- part name: 
  495. ----- HyperTalk script -----
  496. on mouseup
  497.   pass mouseup
  498. end mouseup
  499.  
  500.  
  501.  
  502. -- part 112 (field)
  503. -- low flags: 01
  504. -- high flags: 0002
  505. -- rect: left=155 top=205 right=221 bottom=286
  506. -- title width / last selected line: 0
  507. -- icon id / first selected line: 0 / 0
  508. -- text alignment: 1
  509. -- font id: 2
  510. -- text size: 12
  511. -- style flags: 256
  512. -- line height: 16
  513. -- part name: 
  514. ----- HyperTalk script -----
  515. on mouseup
  516.   pass mouseup
  517. end mouseup
  518.  
  519.  
  520.  
  521. -- part 113 (field)
  522. -- low flags: 01
  523. -- high flags: 0002
  524. -- rect: left=155 top=222 right=238 bottom=286
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 0 / 0
  527. -- text alignment: 1
  528. -- font id: 2
  529. -- text size: 12
  530. -- style flags: 256
  531. -- line height: 16
  532. -- part name: 
  533. ----- HyperTalk script -----
  534. on mouseup
  535.   pass mouseup
  536. end mouseup
  537.  
  538.  
  539.  
  540. -- part 114 (field)
  541. -- low flags: 01
  542. -- high flags: 0002
  543. -- rect: left=155 top=239 right=255 bottom=286
  544. -- title width / last selected line: 0
  545. -- icon id / first selected line: 0 / 0
  546. -- text alignment: 1
  547. -- font id: 2
  548. -- text size: 12
  549. -- style flags: 256
  550. -- line height: 16
  551. -- part name: 
  552. ----- HyperTalk script -----
  553. on mouseup
  554.   pass mouseup
  555. end mouseup
  556.  
  557.  
  558.  
  559. -- part 115 (field)
  560. -- low flags: 01
  561. -- high flags: 0002
  562. -- rect: left=296 top=171 right=187 bottom=427
  563. -- title width / last selected line: 0
  564. -- icon id / first selected line: 0 / 0
  565. -- text alignment: 1
  566. -- font id: 2
  567. -- text size: 12
  568. -- style flags: 256
  569. -- line height: 16
  570. -- part name: 
  571. ----- HyperTalk script -----
  572. on mouseup
  573.   pass mouseup
  574. end mouseup
  575.  
  576.  
  577.  
  578. -- part 116 (field)
  579. -- low flags: 01
  580. -- high flags: 0002
  581. -- rect: left=296 top=188 right=204 bottom=427
  582. -- title width / last selected line: 0
  583. -- icon id / first selected line: 0 / 0
  584. -- text alignment: 1
  585. -- font id: 2
  586. -- text size: 12
  587. -- style flags: 256
  588. -- line height: 16
  589. -- part name: 
  590. ----- HyperTalk script -----
  591. on mouseup
  592.   pass mouseup
  593. end mouseup
  594.  
  595.  
  596.  
  597. -- part 117 (field)
  598. -- low flags: 01
  599. -- high flags: 0002
  600. -- rect: left=296 top=205 right=221 bottom=427
  601. -- title width / last selected line: 0
  602. -- icon id / first selected line: 0 / 0
  603. -- text alignment: 1
  604. -- font id: 2
  605. -- text size: 12
  606. -- style flags: 256
  607. -- line height: 16
  608. -- part name: 
  609. ----- HyperTalk script -----
  610. on mouseup
  611.   pass mouseup
  612. end mouseup
  613.  
  614.  
  615.  
  616. -- part 118 (field)
  617. -- low flags: 01
  618. -- high flags: 0002
  619. -- rect: left=296 top=222 right=238 bottom=427
  620. -- title width / last selected line: 0
  621. -- icon id / first selected line: 0 / 0
  622. -- text alignment: 1
  623. -- font id: 2
  624. -- text size: 12
  625. -- style flags: 256
  626. -- line height: 16
  627. -- part name: 
  628. ----- HyperTalk script -----
  629. on mouseup
  630.   pass mouseup
  631. end mouseup
  632.  
  633.  
  634.  
  635. -- part 119 (field)
  636. -- low flags: 01
  637. -- high flags: 0002
  638. -- rect: left=296 top=239 right=255 bottom=427
  639. -- title width / last selected line: 0
  640. -- icon id / first selected line: 0 / 0
  641. -- text alignment: 1
  642. -- font id: 2
  643. -- text size: 12
  644. -- style flags: 256
  645. -- line height: 16
  646. -- part name: 
  647. ----- HyperTalk script -----
  648. on mouseup
  649.   pass mouseup
  650. end mouseup
  651.  
  652.  
  653.  
  654. -- part 120 (button)
  655. -- low flags: 00
  656. -- high flags: A002
  657. -- rect: left=205 top=23 right=68 bottom=248
  658. -- title width / last selected line: 0
  659. -- icon id / first selected line: 21700 / 21700
  660. -- text alignment: 1
  661. -- font id: 0
  662. -- text size: 12
  663. -- style flags: 0
  664. -- line height: 16
  665. -- part name: Home
  666. ----- HyperTalk script -----
  667. on mouseUp
  668.   visual effect dissolve slowly to black
  669.   visual effect iris open slow to white
  670.   visual effect dissolve
  671.   go to home
  672. end mouseUp
  673.  
  674.  
  675.  
  676. -- part 121 (button)
  677. -- low flags: 00
  678. -- high flags: 2000
  679. -- rect: left=51 top=149 right=309 bottom=140
  680. -- title width / last selected line: 0
  681. -- icon id / first selected line: 0 / 0
  682. -- text alignment: 1
  683. -- font id: 0
  684. -- text size: 12
  685. -- style flags: 0
  686. -- line height: 16
  687. -- part name: New Button
  688. ----- HyperTalk script -----
  689. on mouseUp
  690.   ask "What number would you like to dial?"
  691.   if it is "" then exit mouseup
  692.   Put "Now Dialing "&it into msg
  693.   dial it with modem
  694.   hide msg
  695.  
  696. end mouseUp
  697.  
  698.  
  699.  
  700. -- part 122 (button)
  701. -- low flags: 00
  702. -- high flags: 2000
  703. -- rect: left=50 top=64 right=79 bottom=139
  704. -- title width / last selected line: 0
  705. -- icon id / first selected line: 0 / 0
  706. -- text alignment: 1
  707. -- font id: 0
  708. -- text size: 12
  709. -- style flags: 0
  710. -- line height: 16
  711. -- part name: 
  712. ----- HyperTalk script -----
  713. on mouseUp
  714.   if the shiftkey is down then
  715.     repeat with x=1 to 5
  716.       Put "Redial"&x into holder
  717.       Put "" into bkgnd field holder
  718.     end repeat
  719.   end if
  720.  
  721. end mouseUp
  722.  
  723.  
  724.  
  725. -- part 123 (button)
  726. -- low flags: 00
  727. -- high flags: A002
  728. -- rect: left=458 top=87 right=133 bottom=507
  729. -- title width / last selected line: 0
  730. -- icon id / first selected line: 1017 / 1017
  731. -- text alignment: 1
  732. -- font id: 0
  733. -- text size: 12
  734. -- style flags: 0
  735. -- line height: 16
  736. -- part name: Unused
  737.